home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / nyan_e2 / nyane2_t.plp < prev    next >
Text File  |  1993-11-30  |  5KB  |  163 lines
  1. /**********   会議室タイトル一覧を作成する  v1.04a用   **********/
  2. var f2[1000];
  3. var rtn2[500];
  4. rtn2:=rtn;
  5.  
  6. %oneHP{[name]
  7.     %name2 @getchar(name|{       },1,8);
  8.     case(@filechk(logd|{\HP\}|fname|{.TLT}),
  9.         {Yes},{madd(1,{#})},{No},{madd(1,{ })});
  10.     madd(1,name2|{:HPの最新オープニング\n});
  11.     case(@filechk(logd|{\HP\}|fname|{.LOG}),
  12.         {Yes},{madd(1,{#})},{No},{madd(1,{ })});
  13.     madd(1,name2|{:HPの内容              \n});
  14.     case(@filechk(logd|{\HP\}|fname|{.USR}),
  15.         {Yes},{madd(1,{#}|name2|{:HPの最近の参照者      \n}) });
  16. };
  17.  
  18. %onePatio{[name]
  19.     %name2 @getchar(name|{       },1,8);
  20.     case(@filechk(logd|{\PATIO\}|fname|{.TLT}),
  21.         {Yes},{madd(1,{#})},{No},{madd(1,{ })});
  22.     madd(1,name2|{:Patio のオープニング\n});
  23.     case(@filechk(logd|{\PATIO\}|fname|{.LOG}),
  24.         {Yes},{madd(1,{#})},{No},{madd(1,{ })});
  25.     madd(1,name2|{:Patio    });
  26.     case(@fopen(logd|{\PATIO\}|fname|{.TLT}),
  27.     {Yes},{    loop({
  28.             %line @fread(12,{(});
  29.             case(line<>{} && @getchar(line,17,1)={)} &&
  30.                         @getchar(line,23,1)={/},
  31.             {Yes},{
  32.             madd(1,@getchar(line,6,5)|{(}|@getchar(line,14,3)|{)}|
  33.                 @getchar(line,21,5)|{:}|@getchar(line,29,80));
  34.             im({No});
  35.             },{No},{
  36.             im({Yes});
  37.             });
  38.         });
  39.         fclose;
  40.     },{No},{madd(1,name2|{\n});
  41.     });
  42.     case(@filechk(logd|{\PATIO\}|fname|{.USR}),
  43.         {Yes},{madd(1,{#}|name2|{:Patio の最近の参照者   \n})});
  44. };
  45.  
  46. %oneBoad{
  47.     %line @fread(12,{(});
  48.     %CcsNo    @case(@getchar(line,1,1),
  49.             { },{im({0}|@getchar(line,2,2))},
  50.                ,{getchar(line,1,2)
  51.         });
  52.     case(line<>{} && @getchar(line,17,1)={)} && @getchar(line,1,2)+0>0,
  53.     {Yes},{
  54.         case(@filechk(logd|{\}|name|{\MES}|CcsNo|{.LOG})
  55.             && Treq={VIEW},
  56.         {Yes},{madd(1,{#})},{No},{madd(1,{ })});
  57.         madd(1,name2|{:}|@getchar(line,1,2)|{会議室 }|
  58.             @getchar(line,6,5)|{(}|@getchar(line,14,3)|{)}|
  59.             @getchar(line,21,5)|{:}|@getchar(line,29,80));
  60.     });
  61.     im(line<>{});
  62. };
  63.  
  64. %oneForum{[name]
  65.     %name2 @getchar(name|{       },1,8);
  66.     case(Treq={VIEW},
  67.     {Yes}, {
  68.         case(@filechk(logd|{\}|name|{\TITLE.LOG}),
  69.         {Yes}, {madd(1,{#});
  70.         },{No},{madd(1,{ });
  71.         });
  72.         madd(1,name2|{:オープニングメッセージ\n});
  73.         case(@filechk(logd|{\}|name|{\BUL.LOG}),
  74.         {Yes}, {madd(1,{#});
  75.         },{No},{madd(1,{ });
  76.         });
  77.         madd(1,name2|{:掲示板の内容    \n});
  78.         case(@filechk(logd|{\}|name|{\MESTITLE.LOG}),
  79.         {Yes}, {madd(1,{#});
  80.         },{No},{madd(1,{ });
  81.         });
  82.         madd(1,name2|{:会議室オープニングメッセージ\n});
  83.     });
  84.     fopen(logd|{\}|name|{\mestitle}|{.log});
  85.     loop({oneBoad});
  86.     fclose;
  87. };
  88.  
  89. mclear(1);
  90. case(Treq={VIEW},
  91. {Yes}, {
  92.     madd(1,{  ★  読みたい物を左ダブルクリック}|
  93.            {(又はカーソル移動+PF3)で選択して下さい　★　\n});
  94.     case(@filechk(logd|{\MAIL\PROFILE.LOG}),{Yes},{
  95.         madd(1,{#        :受信したプロフィールの内容\n})});
  96.     case(@filechk(logd|{\TITLE.LOG}),{Yes},{
  97.         madd(1,{#        :最新のNifty オープニングメッセージ \n})});
  98.     case(@filechk(logd|{\BILL.LOG}),{Yes},{
  99.         madd(1,{#        :最新のNifty 課金情報（３か月分）\n})});
  100.     case(@filechk(logd|{\ACCOUNT.TXT}),{Yes},{
  101.         madd(1,{#        :アクセス履歴情報\n})});
  102.     case(@filechk(logd|{\MAIL\MAIL.LOG}),
  103.     {Yes},{    madd(1,{#        :受信したメールの内容})
  104.     },{No},{madd(1,{         :受信したメールの内容})
  105.     });
  106.     case(@filechk(logd|{\TITLE.LOG}),{Yes},{
  107.         %title @read(logd|{\TITLE.LOG});
  108.         case(@head(title,{（未読分})<>title,{Yes},{
  109.             madd(1,@head(@tail(title,{通届いています}),{－－\n}));
  110.         });
  111.         madd(1,{\n});
  112.     });
  113.     case(hp<>{},{Yes},{
  114.         f2:=hp;
  115.         loop({
  116.             %fname @tail(@head(f2,{,}),{/});
  117.             f2:=@body(f2,{,});
  118.             case(@filechk(logd|{\HP\}|fname|{.TLT}),{Yes},{
  119.                 oneHP(fname)});
  120.             im(f2<>{})
  121.         });
  122.     });
  123.     case(patio<>{},{Yes},{
  124.         f2:=patio;
  125.         loop({
  126.             %fname @tail(@head(f2,{,}),{/});
  127.             f2:=@body(f2,{,});
  128.             case(@filechk(logd|{\PATIO\}|fname|{.TLT}),{Yes},{
  129.                 onePatio(fname)});
  130.             im(f2<>{})
  131.         });
  132.     });
  133.     case(forum<>{},{Yes},{
  134.         f2:=forum;
  135.         loop({
  136.             %fname @head(@head(f2,{/}),{(});
  137.             f2:=@body(f2,{/});
  138.             %mae    @head(rtn2,fname);
  139.             %ushiro    @body(rtn2,fname);
  140.             case(@getchar(ushiro,1,1)={(},{Yes},{
  141.                 rtn2:=mae|@body(ushiro,{/});
  142.             });
  143.             case(@filechk(logd|{\}|fname|{\title}|{.log}),{Yes},{
  144.                 oneForum(fname)});
  145.             im(f2<>{})
  146.         });
  147.     });
  148.     case(rtn2<>{},{Yes},{
  149.         f2:=rtn2;
  150.         loop({
  151.             %fname @head(@head(f2,{/}),{(});
  152.             f2:=@body(f2,{/});
  153.             case(@filechk(logd|{\}|fname|{\title}|{.log}),{Yes},{
  154.                 oneForum(fname)});
  155.             im(f2<>{})
  156.         });
  157.     });
  158. },{No},{
  159.     madd(1,{  ★  対象会議室を左ダブルクリック}|
  160.        {(又はカーソル移動+PF3)で選択して下さい　★　\n});
  161.     oneForum(Treq);
  162. });
  163.